home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Remote_Win1827201292004.psc / Remote Winamp / source / client / frmfindfiles.frm < prev    next >
Text File  |  2004-12-09  |  4KB  |  127 lines
  1. VERSION 5.00
  2. Begin VB.Form frmfindfiles 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Search for files in server"
  5.    ClientHeight    =   3795
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   10545
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "frmfindfiles.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   3795
  23.    ScaleWidth      =   10545
  24.    StartUpPosition =   1  'CenterOwner
  25.    Begin VB.CommandButton Command1 
  26.       Caption         =   "Reset"
  27.       Height          =   315
  28.       Left            =   9480
  29.       TabIndex        =   4
  30.       Top             =   900
  31.       Width           =   855
  32.    End
  33.    Begin VB.CheckBox chksubfolders 
  34.       Caption         =   "Check sub-folders / Do recursive file search"
  35.       Height          =   255
  36.       Left            =   1560
  37.       TabIndex        =   3
  38.       Top             =   960
  39.       Width           =   3555
  40.    End
  41.    Begin VB.ListBox lstfoundfiles 
  42.       Height          =   2205
  43.       Left            =   120
  44.       TabIndex        =   5
  45.       Top             =   1440
  46.       Width           =   10275
  47.    End
  48.    Begin VB.CommandButton cmdFind 
  49.       Caption         =   "Search"
  50.       Height          =   675
  51.       Left            =   9480
  52.       TabIndex        =   1
  53.       Top             =   160
  54.       Width           =   855
  55.    End
  56.    Begin VB.TextBox txtspec 
  57.       Height          =   285
  58.       Left            =   1560
  59.       TabIndex        =   2
  60.       Text            =   "*.mp3"
  61.       Top             =   540
  62.       Width           =   7815
  63.    End
  64.    Begin VB.TextBox txtpath 
  65.       Height          =   285
  66.       Left            =   1560
  67.       TabIndex        =   0
  68.       Text            =   "C:\My Music\"
  69.       Top             =   180
  70.       Width           =   7815
  71.    End
  72.    Begin VB.Label Label2 
  73.       Alignment       =   1  'Right Justify
  74.       BackStyle       =   0  'Transparent
  75.       Caption         =   "Look for:"
  76.       Height          =   195
  77.       Left            =   180
  78.       TabIndex        =   7
  79.       Top             =   600
  80.       Width           =   1335
  81.    End
  82.    Begin VB.Label Label1 
  83.       Alignment       =   1  'Right Justify
  84.       BackStyle       =   0  'Transparent
  85.       Caption         =   "Search in path:"
  86.       Height          =   255
  87.       Left            =   180
  88.       TabIndex        =   6
  89.       Top             =   240
  90.       Width           =   1335
  91.    End
  92. End
  93. Attribute VB_Name = "frmfindfiles"
  94. Attribute VB_GlobalNameSpace = False
  95. Attribute VB_Creatable = False
  96. Attribute VB_PredeclaredId = True
  97. Attribute VB_Exposed = False
  98. Private Sub cmdfind_Click()
  99. If txtpath = "" Then
  100. Else
  101. frmclient.SendData "FIND" & txtpath & "|" & txtspec & "|" & chksubfolders.Value
  102. End If
  103. End Sub
  104.  
  105. Private Sub Command1_Click()
  106. lstfoundfiles.Clear
  107. End Sub
  108.  
  109. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  110. If UnloadMode = vbFormControlMenu Then
  111.     Cancel = True
  112.     Me.Visible = False
  113. End If
  114. End Sub
  115.  
  116. Public Function FillinFields(Filepath As String)
  117. txtpath = Filepath
  118. End Function
  119.  
  120. Private Sub Form_Initialize()
  121.     InitCommonControls
  122. End Sub
  123.  
  124. Private Sub txtpath_GotFocus()
  125. cmdFind.Default = True
  126. End Sub
  127.